function [f]=gamutation(a)
n=length(a);
e=rand(1);
m=fix(e*n);
if m==n
    m=m-1;
end
f(1:m)=a(1:m);
b=garandomstring(n-m);
f(m+1:n)=b;

